﻿! sidelite_panel_A  /rewritten by VL 2/28/94/
! internal macro:door int frame
! a=width, b=height, int.c=int. frame thickn.(=C/2),
! c=int. frame thickn.(=C/2), d=int. frame width(=D/2)
! e=glass material*** E=0-transparent

call door_int_frame a,b,c,d,e
addz c/2-0.002 
if e<0.001 then 1
material e                                      !***Glass
prism_ 4,0.004,
d,d,15,
d,b-d,15,
a-d,b-d,15,
a-d,d,15
1:
end
